Fork me on GitHub
melVar -> [c, d, e, f, g, a, b, c+1]
myChord -> Cmaj
melWithRestPhrase -> [a, *, b^, *]*<q>

block {
    melVar*<q>
    [a., c~, g#+1]*<q>
    [(c, e, g)~, (e, c, g)., c+1, e+1, g+1]*<q>
    [(c, e, g), melVar, a]*<q>
    [a, *, (c, e, g), *, b]*<q>
    [myChord:0, myChord:1., myChord:2~]*<q>
    melWithRestPhrase
}
h